#!/usr/bin/perl

my $i = 0;
while ($i < 5) {
	print $i . "\n";
	$i++;
}
print 42 . "\n";